﻿' ******************************************************************************
' ** 
' **  Yahoo Finance Managed
' **  Written by Marius Häusler 2010
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2010 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace Finance

    ''' <summary>
    ''' Stores the range of an alphabetical list 
    ''' </summary>
    ''' <remarks></remarks>
    Public Class IDListRangeData
        Private mValue As String = String.Empty
        Private mLink As String = String.Empty
        Private mServer As Server = Server.USA

        ''' <summary>
        ''' The range of the list
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property Value() As String
            Get
                Return mValue
            End Get
        End Property
        Friend ReadOnly Property Link() As String
            Get
                Return mLink
            End Get
        End Property
        Friend ReadOnly Property Server() As Server
            Get
                Return mServer
            End Get
        End Property

        Friend Sub New(ByVal value As String, ByVal link As String, ByVal server As Server)
            mValue = value
            mLink = link
            mServer = server
        End Sub

    End Class

    ''' <summary>
    ''' Stores the subrange of an alphabetical list 
    ''' </summary>
    ''' <remarks></remarks>
    Public Class IDListSubRangeData
        Private mValue As String = String.Empty
        Private mLink As String = String.Empty
        Private mServer As Server = Server.USA

        ''' <summary>
        ''' The sub range of the list
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property Value() As String
            Get
                Return mValue
            End Get
        End Property
        Friend ReadOnly Property Link() As String
            Get
                Return mLink
            End Get
        End Property
        Friend ReadOnly Property Server() As Server
            Get
                Return mServer
            End Get
        End Property

        Friend Sub New(ByVal value As String, ByVal link As String, ByVal server As Server)
            mValue = value
            mLink = link
            mServer = server
        End Sub

    End Class

End Namespace
